﻿Imports System.IO
Public Module Main
    Sub Main(ByVal arg() As String)

        If arg.Length <> 0 Then
            If File.Exists(arg(0)) Then
                MsgBox(arg(0))
                Application.Run(New MainForm)
            End If
        Else
            Application.Run(New MainForm)

        End If
        'Shell("cmd", AppWinStyle.Hide)
    End Sub
End Module

